home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crack It!
/
Crack It!.iso
/
CONTENT
/
DISKEDIT
/
STRINGRT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-09-09
|
390b
|
32 lines
{
***
STRINGRT.PAS - string-related routines
(C)Copyright Gerard Paul Java 1996
***
}
{$A+,B-,F-,I-,R-,S-,V-}
unit StringRt;
interface
function UpperCase(S: string): string;
implementation
function UpperCase(S: string): string;
var
Idx: byte;
begin
for Idx := 1 to Length(S) do
S[Idx] := UpCase(S[Idx]);
UpperCase := S;
end;
end.